home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs07.d81 / resident.clk (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  2KB  |  48 lines
  1. 5 PRINT"[147]             RESIDEND CLOCK"
  2. 7 PRINT"              BY BOB FLOOD"
  3. 10 FOR I=49152 TO 49359
  4. 20 READ D: POKE I,D
  5. 30 NEXT I
  6. 31 PRINT"[147]      [176] TEN HOURS
  7. 32 [153]"      (null)OR HOURS
  8. 33 PRINT"      [221][221][176] TEN MINUTES
  9. 34 [153]"      (null)(null)(null)OR MINUTES
  10. 36 PRINT"      [221][221][221][221][176] TEN SECONDS
  11. 38 [153]"      (null)(null)(null)(null)(null)OR SECONDS
  12. 40 PRINT"      HHMMSS"
  13. 50 INPUT"TIME";G$
  14. 60 IF LEN(G$)<>6THEN 40
  15. 70 A$=MID$(G$,1,1)
  16. 80 IF A$<"0" OR A$>"1" THEN 40
  17. 90 B$=MID$(G$,2,1)
  18. 100 IF B$<"0" OR B$>"9" THEN 40
  19. 110 IF A$="1" AND B$>"2" THEN 40
  20. 120 B$=MID$(G$,3,1)
  21. 130 IF B$<"0" OR B$>"5" THEN 40
  22. 140 B$=MID$(G$,4,1)
  23. 150 IF B$<"0" OR B$>"9" THEN 40
  24. 160 B$=MID$(G$,5,1)
  25. 170 IF B$<"0" OR B$>"9" THEN 40
  26. 180 B$=MID$(G$,6,1)
  27. 190 HR=VAL(MID$(G$,1,1))*16  +               VAL(MID$(G$,2,1))
  28. 200 MN=VAL(MID$(G$,3,1))*16  +                VAL(MID$(G$,4,1))
  29. 210 SC=VAL(MID$(G$,5,1))*16  +                VAL(MID$(G$,6,1))
  30. 220 POKE 56331,HR
  31. 230 POKE 56330,MN
  32. 240 POKE 56329,SC
  33. 250 POKE 56328,01
  34. 260 SYS49152
  35. 270 PRINT"[147]"
  36. 280 NEW
  37. 1000 DATA 76,64,192,72,138,72,152,72,32,128,192,104,168,104,170,104,76,49,234,0
  38. 1010 DATA 0,0,0,0,0,0,0,0,0,0,0,0,133,251,41,240,74,74,74,74
  39. 1020 DATA 105,48,170,165,251,41,15,105,48,168,96,0,0,0,0,0,0,0,0,0
  40. 1030 DATA 0,0,0,0,160,200,162,0,56,32,141,255,169,192,141,1,200,169,3,141
  41. 1040 DATA 0,200,160,200,162,0,24,32,141,255,96,0,0,0,0,0,0,0,0,0
  42. 1050 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  43. 1060 DATA 0,0,0,0,0,0,0,0,173,11,220,133,252,173,10,220,133,253,173,9
  44. 1070 DATA 220,133,254,173,8,220,165,252,41,31,32,32,192,76,192,192,140,33,4,169
  45. 1080 DATA 58,141,34,4,165,253,32,32,192,142,35,4,140,36,4,169,58,141,37,4
  46. 1090 DATA 165,254,32,32,192,142,38,4,140,39,4,96,224,48,208,2,162,32,142,32
  47. 1100 DATA 4,76,156,192,255,255,255,
  48.